home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / magazine / psion / games / woggle.lzx / woggle.opl < prev    next >
Text File  |  2007-02-13  |  1KB  |  62 lines
  1. APP Woggle
  2. rem *** Woggle - a game a bit like Boggle!***
  3. rem *** Programmed by Julian Toler        ***
  4. rem *** 24, Parkcroft Road, West Bridgford***
  5. rem *** Nottingham, NG2 3AA.  October 1994***
  6. type $1000
  7. icon "\opd\Woggle.pic"
  8. ENDA
  9.  
  10. PROC top:
  11. LOCAL s%,n%,x%,y%,t%,let$(16,1),bogdat$(101)
  12. bogdat$="AAAAAAABBCCDDEEEEEEEEEEEEFFFGGHHHHHIIIIIIIJKLLLLMMNNNNNNNOOOOOOOOPPQRRRRRSSSSSTTTTTTTTUUUUUVVWWWXYYYZ"
  13. randomize minute*second
  14. defaultwin 1
  15. gfont 12
  16. gstyle 9
  17. gat 20,55
  18. gprint "W o g g l e"
  19. do
  20. n%=1 :x%=0 :y%=0
  21. gstyle 0
  22. do
  23.     let$(n%)=mid$(bogdat$,(rnd*101)+1,1)
  24.     gat x%+130,y%+40
  25.     gbutton let$(n%),1,24,24,0
  26.     n%=n%+1 :x%=x%+25
  27.     if x%=100 :x%=0 :y%=y%+25 :endif
  28. until n%=17
  29.  
  30. gfont 10
  31. gat 250,15 :gprint "Make as many words as possible!"
  32. gat 250,30 :gprint "Letters can run up, down, left,"
  33. gat 250,45 :gprint "right or diagonally.  Each letter"
  34. gat 250,60 :gprint "only be used once per word."
  35. gat 250,75 :gprint "3 minutes per round."
  36. gat 350,140 :gprint "Hit any key to quit"
  37. gfont 12
  38. gat 20,80 :gprint "Counting.."
  39. t%=180
  40. do
  41.     gat 30,90 :gbutton gen$(t%,3),1,40,40,0
  42.     t%=t%-1
  43.     pause -20
  44.     if key :goto dial:: :endif
  45. until t%=0
  46. do
  47.     BEEP 5,300 :PAUSE 5 :BEEP 5,200 :t%=t%+1
  48. until t%=5
  49. dial::
  50. dinit "Not Boggle"
  51. dtext "","End of Round",$202
  52. dposition -1,0
  53. dbuttons "Quit",-27,"New Round",13
  54. if dialog=0 :end: :endif
  55. until 0
  56. ENDP
  57.  
  58. proc end:
  59. alert("Thank you for playing Woggle!","Julian Toler, 24, Parkcroft Rd, NG26FN, UK")
  60. stop
  61. endp
  62.